home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Chipmunk Basic 3.0.7 / gdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-09  |  333 b   |  13 lines  |  [TEXT/cBaS]
  1. 100 rem graphics demo
  2. 110 graphics 0
  3. 120 graphics color 100,0,0 : rem RGB red
  4. 130 graphics fillrect 50,50,200,150,9
  5. 150 graphics color 0,0,0 : rem black
  6. 160 graphics rect 10,10,300,220
  7. 180 sprite 1,10,10,128
  8. 190 for i = 1 to 200
  9. 200 sprite 1,10+i,10+i
  10. 210 t0 = timer : while timer-t0 < 0.05 : wend : rem slow down
  11. 220 next i
  12. 990 end
  13.